Shareware Grab Bag/Shareware Grab Bag.iso/003/propmgr1.arc/PRINT.BLD

Text File | 1979-12-31 | 2.0 KB | 66 lines

* DATE 07/09/84  13:21
* Screen print
@ 22,0 SAY 'PRINT OPTIONS: S (SINGLE SPACE), D (DOUBLE SPACE), N (NO PRINTING)       '
STOR 'Y' TO PRNTSCRN
STOR 'N' TO PRNTOPT
@ 22,67 GET PRNTOPT PICTURE '!'
READ
DO WHIL @(PRNTOPT, 'SDN') = 0
 @ 22,67 GET PRNTOPT PICTURE '!'
 READ
ENDD
IF PRNTOPT = 'S'
 STOR 1 TO LINEMULT
ENDI
IF PRNTOPT = 'D'
 STOR 2 TO LINEMULT
ENDI
IF PRNTOPT = 'N'
 STOR 'N' TO PRNTSCRN
ENDI
IF PRNTSCRN = 'Y'
 SET FORMAT TO PRINT
 EJEC
 @ LINEMULT*4,2 SAY 'Address:'
 @ LINEMULT*4,12 SAY BADDR
 @ LINEMULT*4,56 SAY 'Code:'
 @ LINEMULT*4,63 SAY BCODE
 @ LINEMULT*5,5 SAY 'City:'
 @ LINEMULT*5,12 SAY $(BCITY,1,20)
 @ LINEMULT*5,38 SAY 'State:'
 @ LINEMULT*5,46 SAY $(BCITY,21,2)
 @ LINEMULT*5,57 SAY 'Zip:'
 @ LINEMULT*5,63 SAY $(BCITY,23,5)
 @ LINEMULT*7,2 SAY 'Manager:'
 @ LINEMULT*7,12 SAY $(BDATA,1,25)
 @ LINEMULT*7,55 SAY 'Phone:'
 @ LINEMULT*7,63 SAY $(BDATA,26,13)
 @ LINEMULT*8,5 SAY 'Type:'
 @ LINEMULT*8,12 SAY $(BDATA,39,2)
 @ LINEMULT*8,45 SAY 'Number of Units:'
 @ LINEMULT*8,63 SAY $(BDATA,41,3)
 @ LINEMULT*10,1 SAY 'Acquired:'
 @ LINEMULT*10,12 SAY $(BDATA,44,8)
 @ LINEMULT*10,46 SAY 'Purchase Price:'
 @ LINEMULT*10,63 SAY BPRICE USING '$999,999,999.99'
 @ LINEMULT*12,29 SAY "Send Rental Payments To:"
 @ LINEMULT*13,01 SAY "Company:"
 @ LINEMULT*13,12 SAY REMIT
 @ LINEMULT*13,55 SAY "Phone:"
 @ LINEMULT*13,63 SAY PHONE
 @ LINEMULT*14,02 SAY "Street:"
 @ LINEMULT*14,12 SAY REMITAD
 @ LINEMULT*15,04 SAY "City:"
 @ LINEMULT*15,12 SAY REMITC
 @ LINEMULT*16,1 SAY "Chks To:"
 @ LINEMULT*16,12 SAY CHECKS
 @ LINEMULT*17,02 SAY "Notes:"
 @ LINEMULT*17,12 SAY BNOTES
 @ LINEMULT*18,53 SAY 'Updated:'
 @ LINEMULT*18,63 SAY BUPDATE
 @ LINEMULT*19,1 SAY DATE()
 @ 52,0 SAY ' '
 SET FORMAT TO SCREEN
ENDI
RELE PRNTSCRN, PRNTOPT, LINEMULT